(face-read-string): Set the default value arg of completing-read.

diff --git a/lisp/faces.el b/lisp/faces.el
index bcbda67b87b12ed55ea94b0e8f0d2ce98b3cd717..85d8e882f224887a1addb05887a653aff5770071 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1019,7 +1019,7 @@ Value is the new attribute value."
                     (format "%s for face `%s' (default %s): "
                             name face default)
                   (format "%s for face `%s': " name face))
-                completion-alist)))
+                completion-alist nil nil nil nil default)))
     (if (equal value "") default value)))